home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00040_Glass mask sprite behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.4 KB  |  83 lines
  1. property pSpr, pMaskMember, pMaskStart, pMaskEnd, pRGB, pOverItem, pMasterSprite
  2. global debug
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   pMasterSprite = sprite(me.spriteNum - 1)
  7.   pSpr.visible = 0
  8.   pOverItem = 0
  9. end
  10.  
  11. on mouseEnter me
  12.   if pSpr.visible then
  13.     pOverItem = 1
  14.     sendSprite(me.spriteNum - 1, #mouseEnter)
  15.   end if
  16. end
  17.  
  18. on mouseLeave
  19.   pOverItem = 0
  20. end
  21.  
  22. on mPlaceDrink me, maskedMember, newLoc
  23.   pSpr.loc = newLoc
  24.   pMaskedMember = maskedMember
  25.   pMaskMember = nextMember(maskedMember, 1)
  26.   pSpr.member = pMaskedMember
  27.   pSpr.visible = 1
  28.   updateStage()
  29.   pMaskStart = pSpr.locV - pSpr.rect.bottom
  30.   pMaskEnd = pSpr.locV - pSpr.rect.top
  31. end
  32.  
  33. on mRemoveDrink me
  34.   pSpr.locH = -1000
  35.   mEmptyGlass(me)
  36. end
  37.  
  38. on mHideDrink me
  39.   pSpr.visible = 0
  40. end
  41.  
  42. on mShowDrink me
  43.   mUpdateLiquidLevel(me)
  44.   pSpr.visible = 1
  45. end
  46.  
  47. on mOverItem me, bottleSprite, spoutLoc
  48.   return pourIntersection(pSpr, bottleSprite, spoutLoc)
  49. end
  50.  
  51. on mEmptyGlass me
  52.   if not voidp(pMaskMember) then
  53.     pMaskMember.regPoint = point(pMaskMember.regPoint.locH, pMaskStart)
  54.   end if
  55.   pSpr.color = black()
  56. end
  57.  
  58. on endSprite me
  59.   pSpr.visible = 1
  60. end
  61.  
  62. on mUpdateLiquidLevel me
  63.   if not voidp(pMaskMember) then
  64.     mFillLiquor(me, VOID)
  65.   end if
  66. end
  67.  
  68. on mFillLiquor me, liquidColor
  69.   return fillIt(pSpr, liquidColor, pMaskMember, pMaskEnd, pMasterSprite)
  70. end
  71.  
  72. on mFillSalt me
  73.   nothing()
  74. end
  75.  
  76. on mFillSugar me
  77.   nothing()
  78. end
  79.  
  80. on mStirred me
  81.   sendSprite(pSpr.spriteNum - 1, #mStirred)
  82. end
  83.